-- card: 4117 from stack: in.hc
-- bmap block id: 0
-- flags: 0000
-- background id: 2813
-- name: D2
----- HyperTalk script -----
on openCard
  lock screen
  colorizeHC "Add","PLANETS:PLUTO:UI_MAC:D02.PIC"
  unlock screen
  unlock screen
  QTMovie OpenMovie,Plain,"PLANETS:PLUTO:D2PLU.AVI", "82,121", nocontroller,dontPaintWhite,loop
end openCard



on closeCard
  lock screen
  noPaintWhite
  if there is a window "D2PLU.AVI" then close window "D2PLU.AVI"
  colorizeHC "colorFill"   -- redraw previous screens
  unlock screen
end closeCard

on goEvent
  lock screen
  go to cd "D1"
  unlock screen
end goEvent